home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Precision Software Appli…tions Silver Collection 4
/
Precision Software Applications Silver Collection Volume 4 (1993).iso
/
new
/
cuaclip.arj
/
IRECNO.PRG
< prev
next >
Wrap
Text File
|
1993-06-01
|
650b
|
25 lines
*COMMENTS***********************************************************************
/*
Copyright(C) Delcom-Deltranik International Software Engineering 1990-1993.
$owner: BILLW$
$version: 1.0$ $date: March 16, 1993$ $time: 02:01:42 PM$
*/
static id_string := "$id: ssvcid irecno.prg 1.0 March 16, 1993 02:01:42 PM$";
// $nokeywords$
********************************************************************************
FUNCTION IRecNo( nNewRecNo )
LOCAL nReturnVar
IF VALTYPE( nNewRecNo ) == "N"
nReturnVar := NtxRec( IndexOrd(), nNewRecNo )
ELSE
nReturnVar := NtxPos( IndexOrd(), RECNO() )
ENDIF
RETURN ( nReturnVar )